home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 February: Technology Seed / Mac Tech Seed Feb '97.toast / ODF Release 3 / ODFDev / ODF / Tools / Mac / FWParseCurrentPathName < prev    next >
Encoding:
Text File  |  1996-12-16  |  1.1 KB  |  48 lines  |  [TEXT/MPS ]
  1. set f `Directory`
  2.  
  3. set FWBldType "Unknown"
  4. set FWCompiler "Unknown"
  5. set FWProcessor "Unknown"
  6.  
  7. if `Evaluate "{f}" =~ /(≈)(??)®1(???)®2(Debug)∂:/`
  8. begin
  9.     set FWBldType "Debug"
  10.     set FWCompiler "{®1}"
  11.     set FWProcessor "{®2}"
  12. end
  13. else if `Evaluate "{f}" =~ /(≈)(??)®1(???)®2(Release)∂:/`
  14. begin
  15.     set FWBldType "Release"
  16.     set FWCompiler "{®1}"
  17.     set FWProcessor "{®2}"
  18. end
  19. end
  20.  
  21. export FWBldType
  22. export FWCompiler
  23. export FWProcessor
  24.  
  25. #-----------------------------------------------------------------------
  26. #    Test for compiler, processor and build type.
  27. #-----------------------------------------------------------------------
  28. if {FWCompiler} == "SL"
  29.     set FWCompiler "CW"
  30.     export FWCompiler
  31. end
  32.  
  33. if {FWCompiler} != "SC" && {FWCompiler} != "MC" && {FWCompiler} != "CW"
  34.     Echo "FWParseCurrentPathName: Unknown compiler (SC, MC or CW): ∂"{FWCompiler}∂""
  35.     exit 1
  36. end
  37.  
  38. if {FWProcessor} != "68K" && {FWProcessor} != "PPC"
  39.     Echo "FWParseCurrentPathName: Unknown processor (68K or PPC): ∂"{FWProcessor}∂""
  40.     exit 1
  41. end
  42.  
  43. if {FWBldType} != "Debug" && {FWBldType} != "Release"
  44.     Echo "FWParseCurrentPathName: Unknown build type (Debug or Release): ∂"{FWBldType}∂""
  45.     exit 1
  46. end
  47.  
  48.